﻿Public Class cFuels


    Function selx(cFtype As String, xFload As String)

        Select Case cFtype
            Case Is = "Shortleaf Pine with Oak"
                Select Case xFload
                    Case Is = "Low"
                        Return "3.0"
                    Case Is = "Moderate"
                        Return "4.0"
                    Case Is = "Heavy"
                        Return "4.4"
                End Select
            Case Is = "Shortleaf Pine Regeneration"
                Select Case xFload
                    Case Is = "Low"
                        Return "2.6"
                    Case Is = "Moderate"
                        Return "3.8"
                    Case Is = "Heavy"
                        Return "5.1"
                End Select
            Case Is = "Loblolly Pine with Oak"
                Select Case xFload
                    Case Is = "Low"
                        Return "6.4"
                    Case Is = "Moderate"
                        Return "6.8"
                    Case Is = "Heavy"
                        Return "7.9"
                End Select
            Case Is = "Loblolly Pine Regeneration"
                Select Case xFload
                    Case Is = "Low"
                        Return "4.4"
                    Case Is = "Moderate"
                        Return "7.6"
                    Case Is = "Heavy"
                        Return "8.5"
                End Select
            Case Is = "Hardwood Leaf Litter"
                Select Case xFload
                    Case Is = "Low"
                        Return "0.8"
                    Case Is = "Moderate"
                        Return "1.5"
                    Case Is = "Heavy"
                        Return "2.5"
                End Select
            Case Is = "Grass or Brush"
                Select Case xFload
                    Case Is = "Low"
                        Return "2.0"
                    Case Is = "Moderate"
                        Return "3.0"
                    Case Is = "Heavy"
                        Return "5.0"
                End Select
            Case Is = "Dispersed Slash"
                Select Case xFload
                    Case Is = "Low"
                        Return "4.0"
                    Case Is = "Moderate"
                        Return "6.0"
                    Case Is = "Heavy"
                        Return "8.0"
                End Select
            Case Is = "Piled Debris"
                Select Case xFload
                    Case Is = "Low"
                        Return "5.0"
                    Case Is = "Moderate"
                        Return "7.5"
                    Case Is = "Heavy"
                        Return "10.0"
                End Select
            Case Is = "Shortleaf Loblolly with Grass"
                Select Case xFload
                    Case Is = "Low"
                        Return "1.5"
                    Case Is = "Moderate"
                        Return "3.8"
                    Case Is = "Heavy"
                        Return "5.9"
                End Select
        End Select


    End Function



End Class
